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I.  INTRODUCTION 
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A.  BACKGROUND 

The  ability  to  understand  and  use  a  computer  software  product  depends 
heavily  on  the  quality  of  the  user  interface.  The  user  interface  is  the  vehicle  of 
conversation  between  the  programmer  and  the  user.  The  programmer  wants  to 
provide  a  clear,  easy  to  use  interface  so  that  his  work  is  favorably  evaluated  and 
used.  The  user  wants  an  interface  that  he  can  understand  and  use  easily. 
Programmers  employ  a  variety  of  techniques  in  the  design  of  the  user  interface. 
The  techniques  used  depend  greatly  on  the  type  of  hardware  on  which  the  the 
program  runs  and  the  capability  of  the  language  used  by  the  programmer.  Many 
languages  provide  a  wide  variety  of  functions  that  control  the  terminal  interaction 
process  while  other  languages  are  sparsely  equipped.  Often  the  amount  of  effort 
that  is  required  of  the  programmer  determines  the  quality  of  the  user  interface 
that  he  produces. 

Thesis  students  at  the  Naval  Postgraduate  School  (NPS),  who  are  sponsored 
by  the  Naval  Weapons  Center.  China  Lake  (NWC)  and  who  are  programming  in 
Ada  have  experienced  difficulties  in  controlling  the  output  to  a  serial  CRT 
terminal  screen  in  the  Ada  language.  These  problems  are  manifested  in  the  areas 


of  cumbersome  user  interface  modules  and  non-portable  interface  modules.  These 


problem  areas  at  first  seem  to  be  separate  but  both  are  symptoms  of  the  lack  of 
terminal  interface  capability  in  the  Ada  language. 

1.  User  Interface  Modules 

The  user  interface  of  the  Ada  programs  being  developed  today  at  the 
Naval  Postgraduate  School  are  cumbersome,  hard  to  use.  and  do  not  fully  utilize 
the  capabilities  of  the  user’s  terminal.  Programs  such  as  AdaMeasure  [Ref.  1] 
were  written  using  the  standard  Ada  packages  text  io  and  serial  io  which  were 
designed  to  be  used  on  teletype  terminals.  The  program  is  usually  run  from  a 
VT-100  terminal  with  much  more  capability.  The  user  is  not  able  to  use  the 
capabilities  of  his  equipment  to  operate  the  program  as  easily. 

2.  Lack  of  Portability 

Programmers  who  try  to  use  the  capability  of  the  terminal  to  improve 
their  program’s  interface  often  sacrifice  portability.  The  AdaMeasure  program 
discussed  above  uses  a  single  VT-100  control  sequence  to  clear  the  terminal 
screen,  making  the  program  non-portable.  A  programmer  wishing  to  adapt  the 
program  to  a  different  terminal  type  is  required  to  research  the  method  of  clearing 
the  screen  and  adapt  the  control  sequence  in  the  program. 

This  thesis  examines  some  of  the  problems  of  writing  a  good  interface  in 
Ada  and  proposes  a  solution  by  providing  a  package  of  interface  procedures.  The 
programmer  can  use  this  package  to  better  exploit  the  capabilities  of  the  serial 
CRT  terminal  and  enhance  the  quality  of  the  user  interface  that  he  designs. 


B.  ORGANIZATION 


Chapter  Two  describes  the  styles  of  user  interfaces  that  are  used  today.  The 
effect  of  the  hardware  capabilities  on  the  choice  of  the  user  interface  style  is 
discussed. 

Chapter  Three  discusses  the  design  of  the  Ada  language  and  the  reasons  for 
the  lack  of  user  interface  procedures.  The  experiences  of  students  programming  in 
Ada  and  the  need  for  a  more  sophisticated  interface  package  is  presented. 

Chapter  Four  discusses  the  capabilities  available  in  the  common  terminal 
types  and  how  other  popular  languages  have  used  the  capabilities  of  the  serial 
CRT  terminal.  An  examination  of  these  features  helps  to  determine  what 
procedures  might  be  useful  in  an  Ada  interface  package. 

Chapter  Five  discusses  the  issues  considered  in  the  design  of  an  improved 
interface  package.  The  design  of  the  TERM  10  interface  package  is  presented 
and  its  capabilities  discussed. 

Chapter  Six  discusses  the  implementation  of  the  user  interface  package  body. 
An  application  of  the  package  of  interface  procedures  is  demonstrated  using  a 
sample  menu  producing  procedure. 

Chapter  Seven  presents  a  summary  of  the  work  discussed  and 
recommendations  for  the  use  of  the  TERM  10  package  and  for  future  work  in 
this  area. 

Appendix  A  lists  the  complete  specification  of  the  package  TERM  IO. 
Appendix  B  contains  a  programmers  guide  to  the  use  of  the  TERM  10  package. 


9 


Appendix  C  lists  the  package  body  of  the  TERM  IO  package  for  the  VT  -  100 
terminal.  Appendix  D  presents  a  summary'  of  serial  CRT  control  codes  for  several 
terminal  types.  Appendix  E  gives  examples  of  the  use  of  the  TERM  IO  package 
to  improve  the  interface  of  an  existing  Ada  program,  the  AdaMeasure  program 
written  by  thesis  students  at  the  Naval  Postgraduate  School. 


II.  THE  USER  INTERFACE 

A.  INTRODUCTION 

The  purpose  of  the  user  interface  is  to  bridge  the  conceptual  gap  between  the 
user's  understanding  of  the  computing  process  and  the  program  in  execution.  The 
user  is  not  concerned  with  the  hardware  implementation  details,  only  with  the 
functional  process  of  the  program  that  is  running. 

The  capability  and  functions  of  the  user  interface  vary  greatly  from  program 
to  program.  Some  variation  in  capability  is  due  to  the  decisions  of  the  software 
designers.  Many  differences,  however,  are  due  to  the  constraints  imposed  by  the 
capabilities  of  the  supporting  terminal. 

B.  TYPES  OF  TERMINALS 

Terminal  hardware  configurations  are  different  for  every  system.  The 
capabilities  of  the  terminal  depend  on  the  level  of  sophistication  of  its  hardware. 
These  capabilities  vary  from  the  basics  of  a  teletype  printer  to  the  latest  design  of 
graphics  terminal.  The  common  terminal  types  in  use  today  are  the  teletype, 
serial  CRT.  character  mapped  CRT.  and  the  bit  mapped  CRT. 

1.  Teletype  Terminal 

The  teletype  terminal  is  the  first  widely  used  terminal.  Many  are  still  in 
use  today.  In  this  terminal  the  computer  output  is  sent  one  character  at  a  time  in 


serial  fashion  from  the  computer  to  be  printed  on  the  paper  of  a  printer  which  sits 
behind  a  keyboard.  The  input  is  taken  from  the  keyboard  and  is  usually  echoed 
on  the  paper.  The  user  may  address  the  memory  by  line  only.  The  teletype  has 
the  least  capability  of  any  terminal  type. 

2.  Serial  CRT 

The  serial  CRT  terminal  is  an  improved  version  of  the  teletype  terminal. 
The  paper  and  printer  have  been  replaced  in  this  system  by  a  CRT  screen  that 
displays  the  output  printed  by  the  computer.  This  terminal  has  several 
advantages  over  the  teletype  including  speed  and  paper  saving.  The  only 
capability  that  the  serial  CRT  terminal  adds  is  that  it  is  cursor  addressable.  The 
computer  can  position  the  cursor  to  any  position  on  the  CRT  screen  to  print  the 
next  character.  This  feature  can  be  used  to  format  the  screen  output  and  produce 
simple  shapes  and  graphs.  The  serial  CRT  is  probably  the  most  common 
terminal  in  use  today.  The  input  device  has  not  changed  from  the  teletype,  it  is 
still  the  keyboard  input. 

The  terminal  controls  what  is  displayed  on  the  CRT  screen  by  storing  the 
screen  contents  in  an  array  corresponding  to  the  screen  locations  on  the  screen.  A 
common  size  for  this  array  is  24  rows  by  80  columns.  Each  location  holds 
information  that  indicates  the  character  to  be  displayed  at  its  screen  position. 
Also  stored  is  information  such  as  highlighting  and  character  and  background 
shade.  Input  to  the  terminal  is  received  just  as  in  the  teletype  terminal.  The 
stream  of  serial  output  from  the  computer  is  written  to  the  screen  buffer.  The 


video  processor  reads  the  screen  buffer  and  uses  a  character  generator  to  produce 
the  characters  on  the  screen.  The  video  processor  typically  does  this  30  times  each 
second.  In  the  serial  CRT  the  screen  buffer  is  not  accessable  to  the  program. 

3.  Character  Memory  Mapped  CRT 

In  the  character  memory  mapped  CRT  terminal,  the  method  of  storing 
the  information  to  be  displayed  on  the  screen  has  changed  to  provide  access  to  the 
character  stored  at  each  screen  location.  The  output  is  the  same  as  for  the  serial 
CRT.  The  contents  of  the  memory  storage  locations  in  the  screen  buffer  can  be 
read  and  used  by  the  program.  The  video  processor  works  the  same  as  for  the 
serial  CRT. 

4.  Bit  Memory  Mapped  CRT 

In  the  bit  memory  mapped  CRT  terminal  the  screen  buffer  has  been 
expanded  to  use  a  memory  location  for  each  pixel  location  on  the  screen.  A 
typical  screen  size  1024  by  768  pixels.  This  terminal  is  pixel  addressable.  This 
allows  the  drawing  of  more  complex  graphics  than  is  possible  with  character  based 
systems.  In  this  terminal,  the  video  processor  reads  the  memory  location 
corresponding  to  each  pixel  to  determine  the  shade.  The  character  generator  is  no 
longer  used  in  the  screen  refresh  cycle.  Pointing  devices  such  as  a  mouse  or  track 
ball  are  now  included  as  input  devices  as  well. 


C.  TYPES  OF  INTERFACES 

General  purpose  interfaces  today  are  divided  into  two  main  categories, 
hierarchical  interfaces  and  event  driven  interfaces. 

1.  Hierarchical  Interface 

The  hierarchical  interface  is  commonly  used  with  the  teletype,  serial  CRT 
and  character  mapped  CRT  terminals.  Systems  designed  using  the  hierarchical 
interface  are  usually  menu  driven.  Using  this  type  of  system,  the  user  makes  a 
selection  from  each  of  a  series  of  menus  until  reaching  a  functional  level  where  a 
process  is  performed.  After  the  process  is  completed,  control  of  the  program  is  be 
returned  to  the  top  or  main’  menu  or  to  the  last  menu  reached  before  the  process 
execution  began. 

The  hierarchy  of  the  menu  selections  reflects  the  structure  of  the 
program.  At  each  menu  level,  the  user  restricts  his  view  of  the  program  to  the 
options  left  under  that  selection.  If.  after  a  process  is  performed,  the  user  desires 
to  run  another  process,  the  user  must  retrace  the  menu  tree  to  reach  the  menu 
selection  for  the  new  process.  A  user  can  experience  problems  in  working  through 
several  menu  levels  and  remembering  what  options  are  available  from  any  of  the 
menu  levels. 

2.  Event  Driven  Interface 

Event  driven  systems  usually  use  the  bit  mapped  CRT  terminal  with  a 
pointing  device.  The  user  can  access  most  of  the  program  functions  directly  from 


the  terminal  screen. 


Functions  are  selected  with  the  pointing  device  from  menus  that  are 
always  visible  to  the  user.  From  almost  every  function,  the  user  returns  to  the 
main  screen.  The  prompt  for  the  available  functions  is  visible  at  all  times  so  the 


user  has  less  difficulty  remembering  what  functions  are  available  and  how  to 
access  them. 

This  thesis  concentrates  on  the  user  interface  requirements  of  the 
hierarchical  interfaces  using  serial  CRT  terminals.  The  systems  currently 
available  at  NPS  and  NWC  for  Ada  programming  are  all  serial  CRT  devices. 
Almost  all  of  them  are  VT-100's  or  VT-100  emulators. 


III.  THE  ADA  USER  INTERFACE 


The  Ada  language  is  designed  for  use  in  embedded  systems  software. 
Interfaces  for  embedded  systems  tend  to  be  specialized  and  hardware  specific. 
Little  effort  has  been  made  to  develop  an  interface  for  output  devices  other  than 
the  serial  (embedded)  device  and  the  teletype  terminal.  As  a  result,  programmers 
who  want  to  write  in  Ada  cannot  use  terminal  interaction  and  screen  formating 
available  on  the  serial  CRT  terminal  without  writing  their  own  interface 
procedures. 

Most  of  the  current  Ada  literature  concerns  the  design  of  software  engineering 
environments  for  the  language.  Many  of  these  systems  are  being  designed  and 
written  but  none  has  specifically  addressed  the  problem  of  using  terminals  with 
more  capability  than  the  original  teletype.  It  is  assumed  that  each  application  will 
write  its  own  interface. 

The  Preliminary  System  Specification  of  the  Software  Technology  for 
Adaptable  Reliable  Systems  -  Software  Engineering  Environmets  (STARS-SEE) 
program  specifies  that  a  standard  user  interface  at  the  end  product  level  will  be 
used.  The  Interface  Control  Working  Group  (ICWG)  is  responsible  for  the 
oversight  and  control  of  system  and  software  interfaces[Ref.  2].  The  preliminary 
specification  does  not  address  the  variations  of  terminal  types  but  only  says  that 
the  interface  is  to  be  consistent. 


The  shortcomings  of  the  TEXT  10  package  were  the  subject  of  a  paper  by 
J.P.  Rosen  presented  at  the  1984  IEEE  Ada  Applications  and  Environments 
Conference  [Ref.  3],  This  paper  describes  typical  programming  problems  with 
TEXT  10.  many  of  which  are  the  same  problems  experienced  by  programmers  at 
XPS.  Rosen  offers  several  programming  techniques  to  better  use  the  facilities  in 
TEXT  10.  Rosen  takes  the  position  that  a  special  IO  package  is  not  necessary  to 
write  a  good  terminal  interface  in  Ada.  He  does  not  address  the  problems  of  using 
screen  graphics  or  different  terminal  configurations. 

While  it  is  likely  that  any  large  commercial  application  written  in  Ada  would 
include  its  own  terminal  10  package,  the  use  of  Ada  in  the  academic  and  research 
environments  would  be  enhanced  by  the  availablility  of  a  simple,  easy  to  use. 
portable  interface  package  that  supported  the  serial  CRT  terminal. 

Students  at  the  Naval  Postgraduate  School  are  currently  using  Ada  for 
general  purpose  projects  other  than  embedded  systems.  Many  of  these  projects  use 
terminal  interface  and  interactive  procedures.  These  students  and  other 
programmers  who  want  to  use  Ada  for  programs  vcith  terminal  interface 
procedures  face  several  difficult  problems.  Methods  of  performing  many  common 
screen  functions  such  as  clearing  the  screen  or  positioning  the  cursor  are  not 
entirely  standardized.  Students  who  want  to  improve  the  usability  and 
appearance  of  their  work  have  been  forced  to  include  terminal  specific  character 
codes  and  functions  in  their  programs.  The  result  is  that  each  student  is  spending 


time  researching  the  correct  character  codes  and  is  producing  programs  that  are 
not  portable. 


The  solution  for  these  programmers  is  the  availability  of  a  package  of 
terminal  interface  procedures  that  a  programmer  can  use  for  terminal  interaction. 
The  objective  of  the  terminal  interface  package  is  to  provide  the  Ada  programmer 
with  the  enhanced  terminal  interface  functions  required  to  exploit  the  capabilities 
of  the  serial  CRT  terminal.  The  programmer  can  use  these  functions  without 
having  to  rewrite  them  for  each  program.  The  result  will  be  more  efficient, 
standardized  programs. 

The  system  should  provide  an  interface  between  the  program  and  the 
terminal  device  so  that  the  programmer  can  specify  the  terminal  functions  by 
using  standard  procedure  calls  in  his  programs  in  the  same  way  that  text  io  and 
serial  io  procedures  are  called.  The  call  will  remain  the  same,  but  the 
implementation  will  depend  on  the  terminal  type. 
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IV.  SURVEY  OF  EXISTING  SYSTEMS 


The  Ada  language,  other  language  interfaces,  and  terminal  manuals  were 
studied  to  determine  how  user  communications  in  the  Ada  language  could  be 
improved.  Several  existing  commercial  software  language  packages  have  features 
that  fully  utilize  the  capabilities  of  the  serial  CRT.  These  languages  are 
implemented  for  the  particular  language  on  a  particular  mainframe  or 
microcomputer.  They  indicate  what  features  have  been  successfully  implemented 
and  what  capabilities  an  Ada  programmer  is  likely  to  utilize.  Programmer's 
guides  for  the  different  terminal  types  indicate  what  functions  can  be 
implemented  for  each  terminal  type  and  the  method  to  be  used.  By  comparing 
the  functions  available  on  the  terminals,  the  functions  provided  in  other  systems, 
and  the  experience  of  Ada  programmers,  a  common  set  of  useful  functions  that  a 
programmer  is  likely  to  use  can  be  chosen. 

A.  THE  ADA  LANGUAGE 

Ada  is  designed  to  allow  users  to  tailor  the  language  to  their  needs  by  writing 
packages  that  can  be  used  in  many  programs.  The  designers  of  the  language 
purposely  left  out  many  of  the  terminal  interface  functions  to  maintain  the  overall 
generality  of  the  language[Ref.  4.p.252j.  Implementation  of  these  functions  lias 


The  standard  textio  Ada  package  allows  the  programmer  some,  but  not 
much,  control  of  the  screen  output.  Some  of  the  procedures  specified  include:  line 
and  col  that  return  the  line  or  the  column  of  the  present  cursor  position,  set  line 
and  set  col  that  change  the  cursor  position,  and  a  new  page  function  that 
advances  the  page[Ref.  5].  These  procedures  are  designed  to  control  the  output  of 
the  teletype  terminal  and  do  not  provide  the  level  of  access  to  the  operating 
system  functions  that  is  required  to  control  the  output  to  a  serial  CRT  terminal. 
In  order  to  produce  the  terminal  screen  output,  the  programmer  must  specify  the 
character  to  be  printed  at  each  screen  location.  In  such  a  case,  the  CRT  terminal 
screen  is  no  more  useful  than  the  teletype  printer  paper  it  replaced. 

B.  OTHER  LANGUAGE  SYSTEMS 

Languages  that  are  designed  to  run  on  a  particular  system  can  provide  a 
fairly  extensive  set  of  terminal  control  functions  because  the  hardware 
configuration  is  known  and  portability  is  not  an  issue.  This  is  particularly  true  of 
systems  that  run  on  microcomputers. 

One  such  microcomputer  language  is  Turbo  Pascal.  Turbo  Pascal  provides  a 
set  of  Pascal  procedures  that  the  programmer  can  use  to  control  the  screen 
output.  These  procedures  allow  the  programmer  to  clear  a  line  of  text,  clear  the 
screen,  position  the  cursor,  and  adjust  screen  brightness.  Turbo  Pascal  uses  the 
ANSI  escape  codes  and  operating  system  calls  of  the  host  machine  to  accomplish 
these  functions.  [Ref.  6 


C.  TERMINAL  DOCUMENTATION 


Documentation  such  as  the  VT-100  User  Guide  is  available  for  most  terminal 
types.  This  documentation  provides  the  user  with  information  about  the 
terminal's  capabilities  and  functions.  The  VT-100  User  Guide  summarizes  the 
protocol  of  over  fifty  terminal  features  [Ref.  7,p.43j.  Norton's  programmer’s  guide 
to  the  IBM  PC  is  an  excellent  source  of  information  for  users  'f  IBM  and  MS- 
DOS  microcomputers  [Ref.  8j.  The  challenge  to  the  programmer  is  to  incorporate 
the  terminal  functions  into  the  language  that  he  is  writing  in.  in  this  case  Ada. 
The  difficulty  to  the  programmer  is  the  need  to  devote  significant  time  and  effort 
to  the  ancillary  problem  of  the  user  interface. 

An  examination  of  the  code  written  by  programmers  for  their  interfaces 
illustrated  the  problems  experienced  by  those  programmers  and  what  they  would 
likely  do  if  provided  with  a  set  of  user  interface  procedures.  Neider  and  Fairbanks 
have  written  their  interface  on  the  level  of  the  teletype  terminal  without  making 
use  of  the  capabilities  of  the  terminal  [Ref.  lj.  This  is  a  'lowest  common 
denominator'  approach.  This  method  is  hard  on  the  user  who  may  be  used  to 
working  on  other  more  advanced  or  friendly  systems,  such  as  Unix.  Other 
programmers  have  spent  hours  trying  to  reproduce  a  function  that  they  know  is 
possible  to  do  in  another  language.  An  excellent  example  of  this  is  a  keyboard 
polling  function,  that  is  a  function  in  Turbo  Pascal  [Ref.  6 . p .  1 4 3 j .  and  in  the 
language  is  the  ‘getchar’  function.  A  keyboard  polling  function  is  not  provided  in 


A  common  method  of  screen  control  seen  in  serial  CRT  terminals  is  the  use  of 
special  character  codes  such  as  the  ANSI  code  [Ref.  7j.  The  put  function  in 
text  io  package  is  capable  of  writing  these  control  codes  to  the  terminal  screen. 
By  using  the  standard  functions  in  the  text  io  package  and  the  ANSI  codes  for 
the  host  machine,  a  useful  set  of  terminal  user  interface  procedures  can  be 
implemented. 


V.  DESIGN  ISSUES 


A.  OPTIONS 

By  looking  at  the  existing  software  and  discussing  the  needs  with 
programmers,  the  need  for  a  basic  set  of  terminal  interface  procedures  has  been 
established.  The  next  step  is  to  design  an  implementation  of  these  features  that  is 
useful  to  the  programmer  and  allows  the  programmer  to  write  terminal  interface 
functions  easily. 

Three  alternatives  were  considered  for  the  implementation  of  the  terminal 
interface  package.  The  low  end  alternative  is  to  distribute  a  table  of  terminal 
functions  and  control  codes  to  programmers  to  include  in  their  programs.  This 
method  has  several  disadvantages.  It  requires  strictly  enforced  programming 
standards  to  prevent  giving  the  programmers  too  much  discretion  over  how  to  use 
the  control  codes  in  their  programs,  promoting  the  non-portablity  of  code.  It 
would  defeat  the  organization’s  goal  of  portability  and  maintainability  and  send 
the  'wrong  signals'  to  the  programmers. 

The  middle  alternative  is  to  develop  an  Ada  package  that  implements  a  set  of 
functions  that  are  common  to  many  terminal  types  and  restrict  the  programmers 
to  using  the  package  to  perform  terminal  interaction.  This  will  allow  the  code 
that  is  produced  to  be  portable  to  any  terminal  type  that  is  supported  by  a 
version  of  the  terminal  interface  package.  This  method  achieves  the  most 
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portability  and  standardization  but  it  does  not  fully  utilize  the  capabilities  of  each 
terminal  type. 

The  high  end  alternative  is  to  write  a  separate  package  for  each  terminal  type 
that  provides  a  full  implementation  of  the  capabilities  of  that  terminal.  This 
allows  the  best  utilization  of  the  terminal  capabilities,  but  it  has  many  of  the 
same  disadvantages  as  the  low  end  option.  Code  will  not  be  as  portable.  There 
will  be  no  standardization,  and  more  problems  in  maintenance  of  a  larger  set  of 
programs. 

Since  many  of  the  processes  to  be  implemented  are  accomplished  through  the 
use  of  character  sequences  that  vary  from  terminal  type  to  terminal  type,  an  Ada 
package  can  be  used  to  declare  the  constants  for  a  terminal  type.  The  same  set  of 
procedures  can  be  used,  but  with  a  different  set  of  constants  for  each  terminal 
type  supported.  This  approach  allows  a  package  to  be  designed  for  any  function 
that  is  performed  by  writing  a  special  character  sequence  to  the  screen. 

The  choice  of  terminal  types  for  implementation  of  the  TERM  IO  package 
was  based  largely  on  the  types  of  terminals  at  the  Naval  Postgraduate  School  and 
the  Naval  Weapons  Center.  China  Lake.  The  most  common  terminal  is  the  YT  - 
100  terminal.  The  VT-100.  an  ANSI  standard  terminal,  is  the  terminal  used  for 
current  Ada  projects.  Most  serial  CRT  terminals  in  use  today  can  emulate  the 
ANSI  standard  terminal  to  some  degree. 

The  TERM  IO  Package  provides  much  more  screen  support  than  keyboard 
support.  Keyboard  functions  are  much  more  hardware  oriented  than  the  screen 


functions  and  are  less  likely  to  be  portable.  The  interface  between  the  program 
and  the  screen  functions  is  well  defined  by  the  use  of  character  strings  as  terminal 
commands  while  the  interface  between  the  program  and  the  keyboard  function  is 
not  as  well  defined.  The  terminal  screen  usually  accepts  information  in  a 
character  format  but  the  keyboard  can  send  information  in  character,  integer,  or 
other  data  format.  The  program  must  allow  for  different  data  types  if  keyboard 
[lolling  is  implemented  extensively. 

The  terminal  assumed  for  the  TERM  10  package  provides  a  terminal  CRT 
screen  of  SO  columns  by  24  rows,  support  for  the  basic  ASCII  character  set,  and  a 
graphic*  character  set  extension  that  allows  the  graphics  characters  to  be  declared 
a*  character  constants  in  Ada.  Terminal  control  codes  are  available  to  perform  the 
functions  of  cursor  movement,  screen  and  line  clearing,  reverse  video  and  bold 
face  printing,  and  graphics  character  printing.  Other  terminal  features  such  as 
user  controlled  cursor  keys,  numeric  keypads,  and  special  function  keys  are  not 
used  in  the  TERM  10  package. 

D.  THE  DESIGN 

The  package  TERM  10  includes  screen  handling  procedures  that  are  not 
available  in  any  of  the  standard  Ada  packages.  These  procedures  allow  the 
programmer  to  perform  screen  control  functions  in  the  Ada  language.  The 
package  specification  has  been  designed  to  be  portable  among  many  terminal 
types,  provided  that  the  package  body  has  been  modified  for  the  terminal  type  in 
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use.  The  complete  specification  of  the  package  TERM  IO  is  listed  in  Appendix  A. 
Portions  of  the  package  declaration  are  reproduced  and  described  below. 
Appendix  B  provides  a  programmer's  guide  with  more  discussion  and  examples  of 
the  use  of  the  TERM  IO  package. 

with  TEXT  IO; 
use  TEXT  IO: 
package  TERM  IO  is 

type  SVVITCHTYPE  is  (ON, OFF); 

SWITCH  :  SWITCHTYPE; 

The  package  TERM  IO  uses  the  input  and  output  procedures  contained  in 
the  standard  Ada  package  TEXT  IO.  TEXT  IO  should  always  be  available  in 
the  Ada  programming  environment.  The  type  SWITCHTYPE  is  an  enumerated 
type  of  (ON. OFF).  The  variable  SWITCH  is  a  status  variable  used  by  of  the  text 
printed  on  the  screen. 

1.  Cursor  Control 

The  cursor  control  procedures  can  be  used  to  position  the  cursor 

anywhere  on  the  terminal  screen.  These  are: 

procedure  MOVE  CURSOR  HOME; 

procedure  MOVE  CURSOR  UP(NUM  :  in  integer): 

procedure  MOVE  CURSOR  DN(NUM  :  in  integer); 

procedure  MOVE  CURSOR  RT(NUM  :  in  integer): 

procedure  MOVE  CURSOR  LT(NUM  :  in  integer); 

procedure  SET  CURSOR  POS(COLM. ROW  :  in  integer); 

procedure  GET  CL  RSOR  POS(COLM.ROW  :  out  positive  count): 


In  a  program,  a  procedure  call  of  MOVE  CURSOR  LT(3):  moves  the  cursor 
three  spaces  to  the  left  on  the  terminal  screen. 

2.  Screen  and  Line  Clearing 

Procedures  to  clear  the  screen  and  to  clear  individual  lines  have  been 

included.  These  procedures  are  called  without  parameters.  These  are: 

procedure  CLEAR  SCREEN: 

procedure  CLEAR  LINE; 

procedure  CLEAR  CURSOR  TO  EOL; 

Procedure  CLEAR  LINE  clears  the  line  the  cursor  is  on.  Procedure 
CLEAR  CURSOR  TO  EOL  clears  the  portion  of  the  line  to  the  right  of  the 
cursor.  Procedure  CLEAR  SCREEN  clears  the  screen  but  does  not  change  the 
cursor  position. 

3.  Keyboard  Polling 

Keyboard  polling  functions  are  used  to  get  a  single  character  from  the 
keyboard,  usually  as  a  response  from  the  user.  These  functions  are  called  without 
parameters.  They  are: 

function  GET  KEY  return  character; 
function  KEYPRESSED  return  boolean: 

The  function  GET  KEY  can  be  used  to  get  a  response  such  as  a  menu  selection. 
The  function  KEYPRESSED  can  be  used  to  have  the  user  signal  readiness  to 


continue. 


4.  Reverse  Video  and  Boldface 


Reverse  video  and  boldface  printing  can  be  obtained  using  these 

procedures.  All  are  called  without  parameters.  They  are: 

procedure  SET  REVERSE(S WITCH  :  in  SWITCHTYPE); 
procedure  GET  REVERSE  STATUS(SWITCH  :  in  SWITCHTYPE): 
procedure  SET  BOLD(S WITCH  :  in  SWITCHTYPE); 
procedure  GET  BOLD  STATUS(SWITCH  :  in  SWITCHTYPE); 

The  variable  type  SWITCHTYPE  is  an  enumerated  type  of  (ON. OFF).  A 

procedure  call  of  SETREVERSE(ON):  causes  all  printable  characters  printed  on 

the  terminal  screen  to  appear  in  reverse  video  until  a  procedure  call  of 

SET  REVERSE(OFF):  returns  the  output  to  to  the  normal  mode.  Bold  face 

print  works  the  same  way. 

5.  Graphics 

Simple  graphics  characters  can  be  used  to  make  a  display  better  looking 

and  more  understandable.  Primitive  characters  have  been  provided  as  well  as 

several  procedures.  These  procedures  are: 

procedure  PUT  TOP  LT  CORNER: 
procedure  PUT  TOP  RT  CORNER: 
procedure  PL'T  BOT  LT  CORNER: 
procedure  PUT  BOT  RT  CORNER: 
procedure  PUT  HORZ  BAR: 
procedure  PUT  VERT  BAR: 
procedure  PUT  CROSS: 
procedure  PUT  TOP  TEE: 
procedure  PUT  BOT  TEE: 
procedure  PUT  LT  TEE: 
procedure  PUT  RT  TEE; 

procedure  DRAW  BOXfCOLM.ROW  :  in  integer): 
procedure  DRAW  HORZ  LINE(LENGTH  :  in  integer): 
procedure  DRAW  VERT  LINEfLENGTH  :  in  integer): 


Procedure  DRAW  BOX  draws  a  box  centered  on  the  terminal  screen  with  the 
upper  left  corner  at  position  (COLM.ROW  ).  The  graphics  character  procedures 
PI  T  TOP  LT  CORNER  through  PLT  RT  TEE  print  a  single  graphics 
character  to  the  screen  and  leave  the  cursor  on  the  position  of  the  character  just 
printed.  DRAW  HORZ  LINE  and  DRAW  \  ERT  LINE  draw  a  line  from  the 
current  cursor  postition  of  of  the  length  specified.  A  horizontal  line  is  drawn  from 
the  cursor  position  to  the  right.  A  vertical  line  is  drawn  from  the  cursor  position 
up  the  screen. 


VI.  IMPLEMENTATION 

The  package  body  of  TERM  IO  implements  the  portable  TERM  10  package 
specification.  The  goal  in  writing  the  package  body  was  to  produce  a  package 
body  for  one  terminal  type  that  could  be  easily  modified  for  other  terminals. 
Terminal  specific  items  were  declared  as  constants  or  separate  procedures  that 
could  be  easily  modified.  The  complete  package  body  for  TERM  IO 
implemented  for  the  YT  -  100  terminal  is  contained  in  Appendix 

A.  THE  TERM  IO  PACKAGE 

The  major  part  of  the  TERM  IO  package  body  is  portable.  The  few  parts 
that  are  not  deal  with  specific  hardware  of  the  terminal.  These  are  the  control 
codes  and  the  method  of  keyboard  input  modes  available  in  the  terminal. 

1.  Control  Codes 

Control  Codes  are  character  sequences  that  are  interpreted  by  the 
terminal  as  commands.  These  codes  are  used  to  perform  terminal  functions  such 
as  clearing  the  screen  and  moving  the  cursor.  Control  codes  vary  from  terminal 
to  terminal  and  are  not  compatible.  There  is  an  ANSI  standard  for  terminal 
control  codes,  however,  which  many  terminals  are  capable  of  emulating.  The 
control  code-  for  two  common  terminals,  the  ANSI  standard  and  the  \  T  - 
terminal,  are  contained  in  Appendix  D. 
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Portability  is  achieved  by  restricting  the  programmer  from  direct  access 
to  these  control  codes.  Instead,  the  codes  are  used  by  the  procedures  available  to 
the  programmer  through  the  package  declaration.  The  control  codes  for  the 
terminal  are  declared  at  the  head  of  the  package  body.  These  codes  are  declared 
as  string  constants.  The  string  constant  can  be  referenced  by  name  to  avoid 
problems  with  embedded  constants.  The  constants  were  used  in  these  procedures 
instead  of  the  actual  code  strings  to  enhance  the  portability  of  the  package  body. 

2.  Keyboard  Input 

When  writing  interactive  programs,  it  is  often  required  that  the  user 
>elect  a  menu  choice  or  press  any  key  to  continue"  reading  an  information  screen. 
These  user  interactions  are  usually  done  with  a  "keypress'  routine  that  detects 
when  a  key  has  been  pressed  on  the  keyboard.  In  Turbo  Pascal,  this  function  is 
called  "Key Pressed" (Ref.  6.  p.143  This  feature  allows  a  user  to  move  quickly 
through  a  hierarchy  of  menus  with  as  few  keystrokes  as  possible.  Unfortunately, 
there  h  no  keypress  routine  in  the  Ada  language. 

The  keyboard  input  functions  in  the  standard  TEXT  IO  package  are  the 
"get"  functions.  These  functions  are  used  to  get  character,  'tring.  and  number 
input  from  the  user.  These  input'  art'  required  by  the  Ada  language  to  end  in  a 
terminator  character,  an  end  of  line,  or  end  of  file.  The  Ada  get  procedure' 
interpret  the  carriage  return  as  the  end  of  line  or  file.  This  means  that  with  the 
standard  get  procedures  the  umt  must  hit  a  carriage  return  after  each  menu 
'♦•lection.  Sine*’  most  other  menu  system-  do  not  require  these  carriage  return'. 


•f •  •*.  «'•  \  * 


* 

tmri  aim  mi  I  mt  ■7m  rnmMmmimd 


31 


the  carriage  return  action  becomes  annoying  to  the  user.  This  is  important 


enough  to  attempt  an  implementation  of  a  keypress  function  for  the  TERM  IO 
package. 

The  method  of  getting  input  from  the  keyboard  is  different  for  each 
implementation.  Various  methods  of  system  dependent  keyboard  polling  can  be 
developed.  The  poller  could  be  a  system  call  or  an  interupt.  It  could  be  a 
pragma,  a  compiler  interface  command,  to  a  language  such  as  C"  that  already  ha- 
a  polling  function.  In  the  package  TERM  IO.  the  function  KEYPOLLER  is  not 
fully  implemented.  Instead,  it  has  been  stubbed  with  a  a  simple  Ada  'get' 
procedure.  The  package  can  be  used  in  this  form  or  the  get'  procedure  can  be 
replaced  with  a  hardware  specific  keyboard  polling  routine.  Each  system  ran 
in-tall  their  own  keyboard  poller  routine  if  it  is  desired.  If  the  KEYPOLLER 
function  1-  used  with  the  get  procedure,  carriage  returns  are  required. 

The  method  of  keyboard  polling  has  been  hidden  in  the  private  procedure 
KEYPOLLER.  The  programmer  cannot  use  keypoller  directly.  It  is  called  from 
the  functions  OET  KEY  and  KEYPRESSED. 

The  procedure  OET  (’I’RSOR  POS  is  designed  to  read  the  cursor 
position  maintained  by  the  terminal  and  return  the  row  and  column  to  the 
program  Thi-  function  wa-  not  implemented  due  to  problems  involved  in 
tran-lating  the  row  and  column  information  that  is  provided  by  the  terminal  into 
an  Ada  variable  This  procedure  can  only  be  implemented  by  a  hardware  specific 
call  to  the  terminal. 

•»*> 
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B.  TERMINALS 


While  the  package  declaration  of  the  package  TERM  IO  is  portable,  the 
implementation  of  tin-  package  body  is  specific  for  each  terminal  type  supported. 
The  specifics  of  the  implementation  are  hidden  from  the  programmer  in  the 
package  body  The  programmer  is  aware  of  only  the  declaration,  or  calling 
statement  for  the  procedures  conatained  in  the  package  body.  An  implementation 
has  been  written  for  t he  Digital  Equiptrnent  Corporation  YT  -1(H)  terminal.  This 
type  has  been  chosen  because  it  is  the  most  common  and  almost  all  comercial 
terminals  are  capable  of  emulating  if.  Modifying  the  package  to  me  on  another 
terminal  type  can  be  done  with  changes  to  the  package  body.  The  complete 
package  body  for  TERM  IO  implemented  for  the  YT  -100  terminal  is  contained 
in  Appendix  ( '. 

1  The  ANSI  Terminal  Interface 

The  YT  -  100  terminal  u>e-  the  control  sequences  established  by  the 
American  National  Standards  Institute  for  controlling  serial  terminal  screen 
output.  These  sequences  all  begin  with  the  ’escape'  character.  033H.  and  thus  are 
known  as  escape1  codes  The  escape  character  can  be  written  in  Ada  as 
A^OII  ESC’.'  A  summary  of  the  escape  codes  for  the  ANSI  terminal  are 
contained  in  appendix  D  An  MS  -  DOS  microcomputer  ran  use  the  ANSI  codes 
with  the  device  driver  ANSI. SYS  configuration. 

To  use  the  escape  code  sequences  in  Ada  the  codes  must  be  declared  as 
string  constants.  These  string  constants  ran  be  manipulated  as  any  other  siring' 


are  in  Ada.  including  writing  them  out  with  a  put  procedure  from  the  TEXT  IO 
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package.  When  the  terminal  receives  tin-  output  string,  it  interprets  it  as  a  screen 
command  which  is  executed.  The  string  is  not  printed  on  the  screen.  An  example 
of  such  a  string  declaration  is 

ITCRSR  constant  string  :=  (ASCII. ESC."  ' .T A '): 

This  string  causes  the  cursor  to  be  moved  up  one  line.  The  complete  list  of  string 
declarations  for  the  package  body  of  TERM  IO  is  contained  in  Appendix  C 
2  The  YT-52  Interface 

Another  common  terminal  type  is  the  Digital  Equipment  Corporation  YT 

-  52  terminal.  The  YT-52  terminal  also  uses  control  sequences  to  control  the 
screen.  These  sequences  are  in  a  different  format  and  are  not  compatable  with  tin 
ANSI  sequences  These  sequences  can  be  written  in  Ada  as  string  constants  just 
as  the  ANSI  sequences  can  be.  The  package  body  for  the  YT-52  interface  would 
be  the  same  as  the  package  body  for  the  ANSI  interface  except  for  the  different 
declaration  of  the  string  constants.  An  example  of  a  string  declaration  for  the  YT 

-  52  terminal  is: 

T'PCRSR  constant  string  :=  (ASCII. ESC.  A  ): 

This  string  would  cause  the  cursor  to  be  moved  up  one  line. 

A  complete  implementation  of  the  package  body  could  not  be  made  for 
the  YT  -  52  because  the  YT  -  52  does  i.wt  provide  all  of  the  control  functions 


provided  by  the  ANSI  standard  terminal.  A  partial  implementation  with  only  the 
common  functions  of  the  terminals  is  possible  for  use  on  the  YT  -  52. 

3.  Other  Terminal  Types 

The  TERM  IO  can  be  adapted  to  other  serial  CRT  terminal  types  by 
substituting  the  correct  control  codes  for  the  new  terminal  type.  If  the  terminal 
type  uses  a  method  other  than  control  sequences  to  control  screen  functions,  then 
revision  of  the  individual  procedures  of  the  TERM  IO  package  body  will  be 
required.  This  revision  is  likely  to  result  in  a  very  hardware  specific  package  body. 
It  -hould  still  result  in  a  package  body  that  completely  implements  the  TERM  IO 


package  specification. 


VII.  CONCLUSIONS 

As  use  of  the  Ada  language  becomes  more  common  and  more  programmers 
are  trained  in  its  use  there  will  be  more  efforts  to  utilize  the  portability  and  code 
reusability  features  of  Ada.  The  TERM  10  package  is  one  example  of  the  use  of 
these  capabilities.  The  use  of  the  Ada  language  to  allow  programmers  to  write 
programs  that  can  be  reused  in  a  variety  of  different  situations  is  a  major  strength 
of  Ada  and  should  be  exploited  whenever  possible. 

A.  REVIEW 

The  need  for  an  Ada  package  to  provide  programmers  with  procedures  to 
control  the  serial  CRT  terminal  was  indicated  by  the  problems  experienced  with 
the  standard  Ada  package  TEXT  IO.  The  package  TERM  IO  was  developed  to 
meet  this  need.  The  goals  sought  in  the  design  of  the  TERM  10  package  were 
reusability,  portability,  and  ease  of  application.  These  goals  were  met  through 
the  use  of  the  constructs  of  the  Ada  language  that  allowed  the  terminal  specific 
items  of  the  program  to  be  hidden  from  programmer's  using  the  package. 

This  thesis  has  proposed  a  package  specification  for  an  Ada  terminal  interface 
package  that  is  reusable  and  portable.  An  implementation  of  the  features  of  the 
package  and  the  method  for  implementing  the  package  on  other  terminal  types 


has  been  presented.  This  package  can  be  used  by  other  programmers  to  design 
better  user  interfaces  faster  and  easier. 

The  package  TERM  10  was  written  to  be  used  in  the  same  manner  as  the 
standard  package  TEXT  IO  and  can  be  thought  of  in  the  same  way  by  the 
programmer.  The  TERM  10  package  provided  the  programmer  with  cursor 
control  capability  to  format  screen  output.  wnth  parameter  control  procedures  to 
change  the  characteristics  of  the  output  text,  with  input  procedures  to  poll  the 
user  for  input,  and  with  simple  character  graphics  capabilities  to  improve  the 
appearance  of  the  screen  output. 

B.  RECOMMENDATIONS 

The  package  TERM  10  should  be  provided  to  programmers  learning  Ada.  It 
can  serve  as  a  useful  tool  for  program  development  and  as  an  example  of  a 
reusable  package.  Many  of  the  problems  experienced  by  the  programmer  who  is 
new  to  Ada  but  has  experience  in  other  languages  result  from  the  inadequacies  of 
the  TEXT  IO  package.  A  programmer  who  feels  that  he  is  always  'reinventing 
the  wheel'  to  do  screen  output  might  well  find  a  use  for  TERM  IO. 

The  TERM  IO  package  was  designed  for  use  with  the  serial  CRT  terminal. 
As  Ada  applications  become  available  for  bit  mapped  graphics  terminals,  there 
will  be  a  need  for  a  terminal  interface  package  that  provides  a  complete  set  of 
graphics  functions  for  the  Ada  language.  This  area  should  be  considered  for 


further  thesis  research. 


This  theses  was  undertaken  with  the  sponsorship  of  the  N'WC  Missile 
Software  Group  as  part  of  a  continuing  program.  The  TERM  10  package  has 
been  applied  to  improve  the  interface  capabilities  of  other  past  and  present  thesis 
efforts  and  it  will  be  available  for  future  efforts. 

Work  on  this  and  other  theses  in  Ada  for  NWC  has  been  made  difficult  by 
the  lack  of  an  Ada  compiler  for  the  Computer  Science  Department  computer  at 
the  Naval  Postgraduate  School.  Currently  the  school's  only  capability  in  Ada  is 
the  Janus/Ada  partial  implementation  in  use  on  microcomputers  at  the  school. 
Working  in  the  full  Ada  language  required  the  use  of  the  Telnet  or  Arpanet 
system  to  work  on  the  China  Lake  computer  system,  under  a  Missile  Software 
Group  account.  With  the  increased  use  of  the  Ada  language  for  both  thesis 
research  and  class  projects  at  the  Naval  Postgraduate  School,  the  acquisition  of  an 
Ada  compiler  should  be  considered. 

The  user  interface  is  an  important  part  of  the  overall  programming  effort. 
Efforts  such  as  TERM  10  make  the  writing  of  the  user  interface  faster  and  easier 
for  the  programmer.  The  hope  is  that  the  programmer  will  make  use  of  the 
TERM  10  package  to  produce  a  well  designed  and  easy  to  use  interface. 
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APPENDIX  A 

TERM  10  PACKAGE  DECLARATION 


__«Mni*M»*»***»l*****»*»*****»******>:*»***jt*m******i:*iMl* 

-  TITLE:  ADA  TERMINAL  INTERFACE 

-  MODCLE  NAME:  TERM  IO  DECLARATIONS 

--  Date  created:  04  MAR  87 

—  Last  modified:  15  MAY  87 

—  Al  THOR:  LT  Anthony  J.  Keough 

--  DESCRIPTION:  This  package  provides  procedures  to 
improve  the  terminal  interface.  It  should  be 
used  with  the  package  TEXT  IO  to  provide  a 
full  set  of  user  interaction  procedures. 


******»***:«*****************,  ************ 


with  TEXT  10: 
use  TEXT  IO: 

package  TERM  IO  is 

—  To  use  TERM  10  the  standard  output  must  be  set  to 
t he  terminal  screen 

--  \  ariable  types: 

'>;>*■  SWITCHTYPE  is  (ON. OFF!. 


-  \  anables 

'WITCH  SWITCHTYPE. 
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-  Cursor  control  procedures: 


a 
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C: 


procedure  MOVE  CURSOR  HOME: 

—  Positions  the  cursor  to  the  top  left  position. 

procedure  MOVE  CURSOR  UP(NUM  :  in  integer); 
procedure  MOVE  CURSOR  DN(NUM  :  in  integer); 
procedure  MOVE  CURSOR  RT(NUM  :in  integer); 
procedure  MOVE  CURSOR  LT(NUM  :  in  integer); 

procedure  SET  CL'RSOR  POS(COLM,ROW  :  in  integer); 

—  Positions  cursor  to  the  screen  position  (COLM,  ROW) 

where  (0.0)  is  the  upper  left  corner. 

procedure  GET  CURSOR  POS(COLM,ROW  :  out  integer); 

—  Returns  the  screen  position  of  the  cursor  where  (0.0) 

is  the  upper  left  corner. 

—  Not  implemented,  stubbed  to  return  (0,0). 


--Screen  and  line  clearing  procedures: 
procedure  CLEAR  SCREEN: 
procedure  CLEAR  LINE; 
procedure  CLEAR  CURSOR  TO  EOL; 


procedure  CLEAR  AND  HOME: 

-  Clears  the  screen  and  positions  the  cursor  to  the 
home  position. 


--Keyboard  polling  procedures: 


function  GET  KEY  return  character; 


function  KEYPRESSED  return  boolean; 


--  Controls  for  Reverse  \  ideo  Printing: 

procedure  SET  REV  ERSE(SV\  ITCH  :  in  SWITCHTYPE); 

procedure  (JET  REVERSE  ST  ATI  S(SWITCH  out  SWITCHTYPE) 


--  Controls  for  Bold  Face  Printing: 

procedure  SET  BOLD(SW ITCH  :  in  SWITCHTVPE): 

procedure  GET  BOLD  STATUS(S\VITCH  :  out  SWITCHTVPE) 

-Graphics  character  printing  procedures: 

—  These  procedures  print  one  graphics  character 
and  leave  the  cursor  on  that  character. 

—  If  graphics  mode  is  set  when  the  procedure  is  called 
it  will  remain  set.  Otherwise  graphics  mode  will 
be  set  ON  and  OFF  to  print  the  graphics  character. 

procedure  PI  T  TOP  LT  CORNER; 

procedure  PI  T  TOP  RT  CORNER: 

procedure  PCT  BOT  LT  CORNER; 

procedure  PCT  BOT  RT  CORNER: 

procedure  PCT  HORZ  BAR: 

procedure  PCT  VERT  BAR: 

procedure  PCT  CROSS: 

procedure  PCT  TOP  TEE: 

procedure  PCT  BOT  TEE; 

procedure  PCT  LT  TEE; 

procedure  PCT  RT  TEE; 

-  Graphics  Drawing  Procedures: 

procedure  DRAW  BOX(COLM. ROW  :  in  integer); 

--  Parameters  passed  are  the  upper  left  corner 

of  the  box  to  be  drawn  centered  on  the  screen. 


procedure  DRAW  HORZ  LINEfLENGTH  :  in  integer): 
procedure  DRAW  VERT  LINE(LENGTH  :  in  integer); 


—  These  procedures  are  called  by  other  procedures  in  TERM  10. 

They  are  not  accessable  to  the  programmer. 

procedure  KEYPOLLER(  KEY  :  out  character): 

—  Implements  the  keyboard  input  method  available  on  the 

—  terminal 

—  Graphics  controlling  procedures 

procedure  SET  GRAPH1CS(S\YITCH  :  in  SWITCHTYPE); 
procedure  GET  GRAPHICS  STATLS(SVVITCH  :  out  SWITCHTYPE); 

end  TERM  IO: 
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APPENDIX  B 


A  PROGRAMMER'S  GUIDE  TO  THE  TERM  IO  PACKAGE 


This  Appendix  presents  a  programmer's  guide  to  the  use  of  the  TERM  IO 
package.  A  programmer  can  use  the  TERM  IO  package  to  control  the  screen 
format  of  a  serial  CRT  screen  that  uses  character  control  codes.  To  use  the 
TERM  IO  package,  first  ensure  that  the  version  of  TERM  IO  that  is  used  is 
compatible  with  the  terminal  type  in  use.  The  control  codes  of  various  terminal 
types  may  be  different. 

The  programmer  has  available  in  the  TERM  IO  package  a  set  of  convenient 
procedures  that  can  be  used  to  improve  the  screen  output.  These  procedures 
include  cursor  control  procedures,  screen  and  line  clearing  procedures,  keyboard 
polling  procedures,  printing  status  control  procedures,  and  graphics  procedures. 
The  complete  declaration  of  the  package  specification  is  contained  in  Appendix  A. 
The  programmer  using  the  package  should  refer  to  the  package  declaration  for  the 
format  of  the  TERM  IO  procedure  calls  and  the  typing  of  the  variables. 

To  use  the  package  TERM  IO  it  must  be  included  with  each  package  body 
that  calls  a  procedure  in  TERM  IO.  This  is  done  by  including  the  statement' 


with  TERM  IO: 
use  TERM  IO: 


« 


at  the  head  of  the  package  body  that  calls  the  procedures  in  TERM  IO.  After 


this  the  procedures  in  TERM  IO  can  be  called  as  if  they  were  declared  in  the 
package. 

Cursor  Control  Procedures 

The  cursor  control  procedures  ran  be  used  to  position  the  cursor  to  any 
position  on  the  serial  CRT  screen  The  programmer  can  use  this  feature  to  format 
the  screen  to  presient  menues  or  to  display  results.  These  procedures  are 

procedure  MOVE  CURSOR  HOME: 

procedure  MOVE  CURSOR  UP(XUM  :  in  integer): 


procedure  MOVE  CURSOR  DNfNUM  :  in  integer): 
procedure  MOVE  (T  RSOR  RT(NUM  :in  integer): 
procedure  MOVE  CURSOR  LT(NUM  :  in  integer): 
procedure  SET  CURSOR  POS( COLM.ROW  :  in  integer): 

The  procedure  MOVE  CURSOR  HOME  moves  the  cursor  to  the  upper  left 

position  on  the  screen.  The  procedures  MOVE  CURSOR  UP  to 

MOVE  CURSOR  LT  allow  the  programmer  to  vary  the  amount  of  the  cursor 

movement  using  the  parameter  NUM.  This  might  be  useful  in  applications  such 

as  drawing  various  size  lines  or  positioning  text  based  on  the  varying  size  of  a 

figure  The  procedure  SET  CURSOR  POSfOOLM.ROVV  .  in  integer)  ran  be 

used  to  set  the  cursor  position  to  any  position  on  the  terminal  screen.  A  procedure 

call  of  SET  CURSOR  POS(().()):  i»  the  equivalent  of  the  call 

MOVE  CURSOR  HOME.  In  the  original  implementation  the  procedure 

<>ET  CURSOR  POS  i>  not  implemented.  It  always  returns  (().()). 
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Screen  and  Line  Clearing  Procedures 


The  screen  arid  line  clearing  porocedure*.  can  he  u»ed  to  erase  all  or  part  of 
the  terminal  screen  This  is  especially  in  an  interactive  situation  where  the 
programmer  is  changing  only  part  of  the  display  These  procedures  are 

procedure  CLEAR  SCREEN: 

procedure  CLEAR  LINE; 

procedure  CLEAR  CURSOR  TO  EOL: 

As  the  procedure  names  indicate.  CLEAR  SCREEN  erases  the  entire  screen. 
CLEAR  LINE  erases  the  entire  line  that  the  cursor  is  on.  and 
(  'LEAR  Cl  RSOR  TO  EOL  erases  the  part  of  the  current  line  to  the  right  of  the 
cursor  including  the  cursor  postion.  None  of  the  screen  and  line  clearing 
procedures  change  the  position  of  the  cursor. 

Keyboard  Polling  Procedures 

The  keyboard  polling  procedures  can  be  used  in  interactive  programming  to 
get  input  from  the  program  user.  This  input  can  be  in  the  form  of  a  one  character 
answer  such  as  a  menu  choice  or  hitting  a  key  to  signal  that  the  user  is  ready  to 
move  to  the  next  step.  The  keyboard  polling  functions  are 

function  GET  KEY  return  character: 
function  KEYPRE^SED  return  boolean: 

The  function  GET  KEY  is  used  to  get  a  specific  character  response  from  the  user. 
A  call  of 
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put'  the  user's  answer  in  the  variable  ANS  One  application  of  this  feature  is 
menu  selection.  The  function  KEYPRESSED  returns  true  if  the  a  key  on  the 
keyboard  has  been  pressed.  This  can  be  used  to  allow  the  user  to  signal  that  he  is 
ready  to  continue  after  reading  instructions,  for  example.  A  simple  waiting  loop 
such  as 

while  true  loop 

if  KEYPRESSED  then  exit:  end  if: 

end  loop: 

wait*  for  the  user  to  hit  a  key  on  the  keyboard. 

Printing  Status  Control  Procedures 

The  procedures  for  control  of  printing  status  allow  the  programmer  to  specify 
bold  face  or  reverse  video  printing.  This  can  be  used  to  emphasize  the  headings 
displayed  or  the  menu  choices.  These  procedures  are 

--  Controls  for  Reverse  Video  Printing: 

procedure  SET  REVERSE! SWITCH  :  in  SWITCHTYPE); 

procedure  OET  REVERSE  STATUS! SWITCH  :  out  SWITCHTYPE): 

--  Controls  for  Bold  Face  Printing: 

procedure  SET  BOLDlSWITCH  :  in  SWITCHTYPE): 

procedure  OET  BOLD  STATUSISWITCH  :  out  SWITCHTYPE): 

Th.-C  procedures  use  the  variable  '•WITCH  of  type  (ON. OFF)  to  set  the  bold 

fare  nr  reverse  video  features.  Tin  procedures  OET  REVERSE  STATI  S  and 

(.FT  BOLD  "TATC-  allow  the  programmer  to  check  the  statu'  of  these 


features  in  the  program.  A  call  of 


SET  BOLD(ON): 

would  set  the  output  print  on  the  terminal  screen  to  boldface  type  until  a  call  of 
SET  BOLD(OFF): 

restored  the  print  type  to  normal. 

(irnphics  Character  Printing  Procedures 

The  graphics  character  printing  procedures  allow  the  programmer  to  design 
simple  shapes  and  graphs  in  Ada  for  the  serial  CRT  terminal  screen.  These 
procedures  are 


procedure  PCT  TOP  LT  CORNER: 
procedure  PI  T  TOP  RT  CORNER: 
procedure  PI  T  BOT  LT  CORNER: 
procedure  PI  T  BOT  RT  CORNER: 
procedure  PI  T  HORZ  BAR: 
procedure  PI  T  VERT  BAR: 
procedure  PCT  CROSS: 
procedure  PI  T  TOP  TEE: 
procedure  PI  T  BOT  TEE: 
procedure  PCT  LT  TEE: 
procedure  PCT  RT  TEE: 


Tlie-e  procedures  each  print  a  single  graphics  character  on  the  screen  at  the 
current  cursor  location.  A  programmer  can  use  these  procedures  to  make  a  shape 
by  positioning  the  cursor  and  printing  each  character  at  the  desired  screen 

location.  The  procedure-  leave  th<  current  cursor  location  at  the  location  of  the 
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graphics  character.  The  programmer  must  reposition  the  cursor  before  each  new 
character  is  printed. 

(Graphics  Drawing  Procedures 

Several  basic  drawing  procedures  have  been  provided  m  addition  to  the 
character  printing  procedures  These  procedures  are 

procedure  DRAW  BOX'COLM.ROW  :  in  integer): 
procedure  DRAW  HORZ  LINE! LENGTH  :  in  integer); 
procedure  DRAW  VERT  LINE) LENGTH  in  integer). 

These  procedure-  are  ea-ier  to  u-e  to  draw  simple  -hape-  tl.an  file  cnaracter 

printing  proceciure- .  T)ie  procedure 

DRAW  BOXlCOLM.ROW  m  integer): 

draw-  a  box  centered  on  the  -c recn  with  the  upper  left  corner  of  the  box  at 
!( OLM.ROW  i  Th*  procedures  DRAW  HORIZ  LINE  and 

DRAW  VERT  LINE  draw  a  line  from  the  current  cursor  position  of  length 
LENGTH 

Private  Procedures 

The  private  procedure-  are  not  acces-able  to  the  programmer.  These 
procedures  ar*1  u-ed  bv  the  other  procedure-  in  the  TERM  IO  package. 


Sample  Menu  Maker 


Tfii'  procedure  is  an  example  of  the  use  of  the  TERM  IO  package.  It  shows 
now  a  programmer  might  use  the  functions  of  TERM  IO  to  write  his  own 
'ernunal  interlace  procedures.  It  produces  a  simple  menu  and  gets  a  menu 
selection  from  the  user. 


procedure  MAKE  MEN  Id  TITLE.  OPTl.  OPT2.  OPT3. 
OPT-4.  OPT5  :  in  string(30l: 

A N >  out  character): 


(LEAR  -<  REE.Y 
MOVE  <  ER  'OR  HOME. 

DRAW  BOX  1 3.31 

'FT  <  I'R'OR  P< )Si  18.7) 

'FT  BOLDlONl: 
pm  i  TITLE  i . 

' F T  BOLDiOFFi 
'FT  (TR'OR  POSH3.10): 
pu*  I  "A 
pu’lOPTl  l: 

'FT  (TR'OR  POsi  13.12): 

puM "B  "). 
put  |  OPT2 1 : 

'FT  (  TR'OR  POS|  15.14): 

put  (  "); 

put(OPT3l: 

'FT  <  TRSOR  POSllS.lG): 

pur("D.  "): 

put(()PT4l: 

'FT  (TRSOR  POSi  15.18): 
put  I  "E. 
put  |  OPT.3 ) : 

'FT  (TR'OR  PO'i.3.23) 

puT’Enter  letter  of  choice.  A  -  E:"): 
while  t rue  loop 

AN'  -  < . E T  KEY: 

case  AN'  1' 
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when  'A'| 'a‘| 'B"| 'b'| 'C"| 'c'i 'D'| 'dl'E'j  V  =  ■  exit: 
when  others  =  null: 
end  case: 
end  loop: 
end’ 

This  procedure  constructs  a  standard  menu  on  the  screen.  It  draws  a  border, 
prints  the  menu  title  in  boldface,  presents  five  menu  choices  and  waits  for  the  user 
to  respond.  The  menu  title  and  options  can  be  strings  up  to  30  characters  long. 
The  procedure  MAKE  MENU  shows  how  the  programmer  can  use  the  TERM  IO 
package  to  format  the  screen  output  and  control  the  movement  of  the  cursor. 
When  called  in  a  program  the  procedure  MAKE  MENU  allows  the  programmer 
to  set  up  the  menu  and  get  the  user  choice  with  as  little  code  as  possible.  The 
result  in  the  program  is  very  clear  and  concise.  A  procedure  call  of 


MAKE  MENU(”Project  Title". 

"Run  Program". 

"Show  Listing". 

"Set  Options". 

"Get  More  Information". 

"Exit  To  System" 

A  NS): 

is  all  that  is  required  to  print  the  menu,  wait  for  the  user  choice,  and  return  the 


choice  to  the  program. 


APPENDIX  C 


TERM  IO  PACKAGE  BODY 


TITLE: 


ADA  TERMINAL  INTERFACE 


MODULE  NAME.  TERM  IO  BODY 
DATE  CREATED:  06  MAR  87 
LAST  MODIFIED:  15  MAY  87 


AUTHOR 


LT  Anlhon>  J  Keough 


DESCRIPTION:  This  package  body  implements  the 
TERM  IO  package  for  the  N'T  -  100  terminal 
using  the  ANSI  control  code  sequences 


with  TEXT  IO. 

use  TEXT  IO; 

package  bod\  TERM  IO  is 

--  Terminal  parameters: 

SCREEN  LENGTH  constant  :  76; 

SCREEN  HEIGHT  :  constant  ;-  24; 


--  ANSI  Control  code  sequences 

CLRSCR  constant  string  :  --  (ASCII. ESC.'  2  .  J’): 
HME  constant  string  :  ( ASCII. ESC."  Vf): 


ONRVRS 

constant  string 

(ASCII  ESC. 

.'7  '.'in'): 

OFFRVRS 

:  const  ant  string 

(ASCII. ESC. 

'.'O',  ml: 

UPCRSR 

const  ant  string  : 

(ASCII. ESC.' 

I  N') 

1 1 N <  R^R 

constant  string 

(ASCII  ESC.' 

I  '  ll  ) 

RTCRSR 

const  ant  string 

(ASCII. ESC.' 

•  1  C'| : 

1 TCRSR 

constant  string  : 

(ASCII  ESC. 

I  D); 

CLR EOL 

constant  string  : 

(  ASCII  ESC.' 

K  | ; 

CI.RLNE 

constant  string  : 

(ASCII. ESC.' 

.  2  .  K  ) : 

t  >\GR  \  F 

const  ant  string  : 

(ASCII  ESC.' 

"0): 

5 

1 

y;  v 

*  .N  wN  .N  k  «  A 

.v.v.V.s.' 

$ 

% 


OFFGRAF  :  constant  string  (ASCII. ESC. ’(’.‘B’); 
ONBOLD  :  constant  string  ( ASCII. ESC.'  Vl’.'m’); 

OFFBOLD  :  constant  string  : (ASCII  ESC.’  .'()'  m' 

--  NT  -  100  Terminal  (Graphics  Characters 

These  characters  print  as  graphics  characters 
when  the  terminal  is  in  the  graphics  mode. 


I  FETCH  constant  character 
CPRTCR  :  constant  character  ;  = 
DNLTCR  :  constant  character  :  — 
DNRTCR  constant  character  : 
HORZBR  :  constant  character  : 

\  ERTBR  :  constant  character 
CRSS  :  constant  character  n'; 
l  FTEE  :  constant  character  -  v 
DNTEE  constant  character  :  '\ 

LTTEE  constant  character  -  ’t 
R  IT  EE  constant  character  t 


—  Terminal  Status  \  ariables: 

REN  ERSE  STAT  :  SNVITCHTYPE  -  OFF; 
BOLD  STAT  SNVITCHTYPE  OFF. 

CR  AF  STAT  SNVITCHTYPE  :  OFF 

--  Other  variables 

MM  integer. 


--  Cursor  Control  Procedures: 


procedure  MOVE  CU  RSOR  HOME  ls 

—  Positions  the  cursor  to  the  top  left  position, 
begin 

put(HME): 

end: 


procedure  MOVE  CURSOR  l  P(Nl'M  in  integer)  is 
begin 

for  I  in  1  M  M  loop 
pilt(l'PORSR); 

end  loop; 

end : 


satesassssM^ 


procedure  MON  K  CURSOR  DX(M'M  in  integer)  is 
begin 

for  1  in  1  .  NLM  loop 

put(DNCRSR); 
end  loop; 
end; 


procedure  MOVE  CURSOR  RT(NU.M  ;  in  integer) 
begin 

for  I  in  1..NUM  loop 
put(RTCRSR); 
end  loop; 
end: 


procedure  MOVE  CURSOR  LTj.NUM  ;  in  integer)  is 
begin 

for  I  in  1..NUM  loop 
put(LTCRSR): 
end  loop: 
end; 


procedure  MOVE  CURSOR  POSfCOLM.ROVV  :  in  integer)  is 
begin 

put(HME); 

for  I  in  1..COLM  loop 
put(RTCRSR). 
end  loop; 

for  I  in  1  .ROW  loop 
put(DNCRSR); 
end  loop: 
end; 


^  ^  .  V  ■  '  «  -  - 

“  A-  V  .«/  v'  ' 


procedure  GET  Cl  RSOR  POS(COLM.ROVY  :  out  integer)  is 

—  This  procedure  is  not  implemented 

To  use  this  procedure  a  hardware  specific 
call  must  be  written  for  the  procedure  body. 

The  procedure  only  returns  (0.0). 


begin 

COLM  -  0; 

ROW  .  0: 

end; 


--  Screen  and  Line  Clearing  Procedures: 
procedure  CLEAR  SCREEN  is 
begin 

put(CLRSCR ) ; 
end: 


procedure  (.'LEAR  LINE  is 
begin 

pu  t  ( C  L  R  L  N  E ) : 
end; 


procedure  CLEAR  CTRSOR  TO  EOL  is 
begin 

put(CLREOL): 

end: 


--  Keyboard  Input  Procedures: 

function  GET  KEY  return  character  is 

—  G«*ts  a  single  character  input  form  the  user. 
KEY  :  character, 
begin 

KEYPOLLER(KEY): 


C-*..  V..  £  a  rC  - 


im 
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end; 


procedure  SET  BOLD(SW  ITCH  in  SWITCHTYPE)  is 
begin 

if  SWITCH  =  ON  then 
BOLD  STAT  :=  ON; 
put(ONBOLD); 
elsif  SWITCH  -  OFF  then 
BOLD  STAT  :=  OFF: 
put(OFFBOLD); 
end  if; 
end; 


procedure  GET  BOLD  STATE S(S WITCH  ;  out  SWITCHTYPE)  is 
begin 

SWITCH  BOLD  STAT. 

end: 


procedure  SET  GR  APH1CS(SW  ITCH  ;  in  SWITCHTYPE)  is 

--  Private  Procedure 

begin 

if  SW  ITCH  =  ON  then 
GRAF  STAT  ON: 
put(ONGRAF); 
elsif  SW  ITCH  =  OFF  then 
GRAF  STAT  :=  OFF: 
put(OFFGRAF); 
end  if; 
end; 


procedure  GET  GRAPHICS  STATES(S  WITCH  out  SWITCHTYPE)  is 


begin 

SWITCH  GRAF  STAT 
end . 
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—  Graphics  Printing  Procedures 


procedure  PUT  TOP  LT  CORNER  is 


begin 

GET  GRAPHICS  STATUS(SWITCH); 
if  SWITCH  =  ON  then 
put(lPLTCR); 

MOVE  CURSOR  LT(1); 
elsif  SWITCH  =  OFF  then 
SET  GRAPHICS  (ON). 
put(UPLTCR). 

MOVE  CURSOR  LT(1); 

SET  GRAPHICS  (OFF): 

end  if; 


end: 


procedure  PUT  TOP  RT  CORNER  is 


begin 

GET  GRAPHICS  STATUS(SWITCH): 
if  SWITCH  -  ON  then 
put(UPRTCR); 

MOVE  CURSOR  LT(1); 
elsif  SWITCH  OFF  then 
SET  GRAPHICS(ON); 
put(UPRTCR): 

MOVE  CURSOR  LT(  1 ); 

SET  GRAPHICS  (OFF): 

end  if: 


end: 


procedure  PUT  HOT  LT  CORNER  is 


begin 

GET  GRAPHICS  STATl'SfSW  ITCH); 
if  SWITCH  -  ON  then 
put(DNLTCR); 

MOVE  CURSOR  LT(  1 ): 
elsif  SWITCH  OFF  then 
SET  GRAPHICS(ON) 
put  ( DN'LTCR ) 

MOVE  CURSOR  LT(1): 

SET  GRAPHICS(OFF) 

end  if. 


e  nd . 
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procedure  PIT  BOT  RT  CORNER  is 


begin 

OET  GRAPHICS  STATUS(SWITCH) 
if  SWITCH  -  ON  then 
put  (DNRTCR); 

MOVE  CURSOR  LT(1): 
elsif  SWITCH  OFF  then 


SET  GRAPHICS(ON). 
put)  DNRTCR); 

MOVE  CURSOR  LT(  1 ); 
SET  GRAPHICS  (OFF); 
end  if. 
end. 


procedure  PUT  Ht)RZ  BAR  is 


begin 

GET  GRAPHICS  STATl  S(SWITCH) 
if  SWITCH  ON  then 
put  ( HORZBR ) 

MOVE  CI  RSOR  LT(  1 ) ; 
elsif  SWITCH  -  OFF  then 
SET  GRAPHICS) ON); 
put  ( HORZBR); 

MOVE  CURSOR  LT(  1 ); 

SET  GRAPHICS(OFF): 

end  if 
end 


procedure  PI  T  VERT  BAR  is 


begin 

GET  GR  APHICS  STATI  S(SVV  ITCH) 
if  SWITC  H  ON  then 
pui(VERTBR) 

MOVE  CURSOR  LT(  1 1 
elsif  SWITCH  OFF  then 
SET  GRAPHICS(ON) 
put(VERTBR) 

MOVE  CURSOR  I. T(H 
SET  (iR  M'Hiesiof  Fi 

end  ;f 


procedure  PI  T  CROSS  is 


begin 

GET  GRAPHICS  STATl  'S(SWITCH) 
if  SW  ITCH  -  ON  then 
put  ICRSS); 

MOVE  CURSOR  LT(  1 ); 
elsif  SW  ITCH  OFF  then 
SET  GRAPHICS(ON); 
put(CRSS); 

MOVE  CURSOR  LT{ I) 

SET  GR APHICS(OFF): 

end  if. 


end . 


procedure  PUT  TOP  TEE  is 


begin 

GET  GRAPHICS  ST  AT  US(  SWITCH) 
if  SWITCH  ON  then 
putllPTEE): 

MOVE  CURSOR  LT(  I ): 
elsif  SW  ITCH  OFF  then 
SET  GRAPHICS(ON); 
put  |  UPTEE): 

MOV  E  CURSOR  LT(1); 

SET  GRAPHICS(OFF); 
end  if 


end . 


procedure  PUT  BOT  TEE  is 


begin 

GET  GRAPHICS  STATUS(SVVITCH) 
if  S  W  I T( '  H  O  N  t  h  e n 
put  IDNTEE) 

MOVE  CURSOR  LT(  1 ); 
elsif  SWITCH  OFF  then 
SET  GR  APHICS(ON). 
put  IDNTEE): 

MOVE  CURSOR  I.T(l). 

SET  GR APIIICSIOFF). 


pn Jure  PI  T  LT  I  KK  is 


(■♦•pin 

OKT  ORAPH1CS  STATl  S(Stt  ITCH) 
if  SW  1T(  H  ON  t  hon 
put|LTTKK! 

MOVK  (TRSOR  LT(1). 

Os  if  SW  ITCH  OFF  ihen 
SET  t  ■  R  APHK'S(ON). 
putlLTTKKi 

MdVK  (TRSOR  LT(1): 

'F  T  ORAPHK'S(OF'K). 

*>mi  if 


prorp.fure  PI  T  RT  TEE  is 


(if-gin 

OKI  ORA  PH  ICS  STATl  'S(SVMTOH). 
if  SW  IT (  H  ON  t  hpn 
put  |  RTTF.'K); 

MOVK  Cl  RSOR  L T ( l ) . 
fl'if  'W  ITCH  OFF'  then 
SKT  ORAPHK  S(ON). 
put!  RT’I  FT  I 

MOVK  (TRSOR  l.T(l). 

SKT  OR  APHIC  S(OKF  |. 
pud  if 


^  ^  |  *'•  »  *  *  »  ^  «  *  *  •  *  .  ‘  "  4  *  •  *  »  ^  ^  »’  •  ’  •  ^ 


procedure  DRAW  BOX((X)L\l  ROW  :  m  integer)  is 

--  Draws  a  box  centered  on  the  screen  with  the  upper 
left  corner  of  the  box  at  position  (COLM.  ROW  ) 

begin 

CLEAR  SCREEN: 

SET  GR  APHICS(ON); 

MOVE  CU  RSOR  POS(COLM  ROW); 
put(CPLTCR); 

for  I  in  COLM  (SCREEN  LENGTH  -  COL VI  -  2)  loop 
put  ( HORZBR): 
end  loop; 

put  ( I'PRTCR); 

MOVE  Cl’RSOR  DN(1); 

MOVE  CURSOR  LT(1). 

for  I  in  ROW.  (SCREEN  HEIGHT  -  ROW  -  2)  loop 
put(VERTBR); 

MOVE  CURSOR  DN(1): 

MOVE  CURSOR  LT(1): 

end  loop: 

put(I)NRTCR): 

MOVE  C  URSOR  LT(2); 

for  1  in  COLM  (SCREEN  LENGTH  -  COLM  -  2)  loop 
put  ( HORZBR): 

MOVE  CURSOR  LT(2) 

end  loop. 
put(I)NLTCR): 

MOVE  CURSOR  UP||) 

MOVE  CURSOR  I.T(l) 

f..r  I  in  ROW  (SCREEN  HER  HIT  -  ROW  -  2)  loop 
put  ( VERTBR) 

MOVE  CURSOR  UP(l). 

MOVE  C  URSOR  I.T(I). 

end  loop: 

SET  GRAPHICS(OFF) 


A,*.  A.J*  nti  *^*rt  *m 


procedure  DRAW  HOR/  l.INFl  LFNOTH  in  integer)  is 


begin 

SFT  CR.M'HlCSiON) 
put  ( L  T  T  K  F ) 
for  I  in  2  LFNOTH  loop 
put  I  HORZHR ) 
end  loop 

SKT  <  >  R  APHI*  'S|  OFF  | 


procedure  DRAW  \  FRT  LI.NFi LFNOTH  in  integer) 
begin 

SFT  OR  APHI*  'Si  ON  I . 
put  ( I )N  I  F F ) 

MOM.  <  I  RSOR  L T ( I ) 

M<)\  F  CFRSOR  I  I’ll), 
for  I  in  2  1  FIN*  iTH  loop 

put  i  VFRTHR ) 

MO\  I  (  I  RSOR  l.T|l) 

MO\  F  Ot  RSOR  (  Pll|. 

end  loop 

SFT  OR  \I’HI< ' s i o F F 
■nd 


■nd  TI.RM  lo 


Xyi6.\ 


APPENDIX  D 


ANSI  STANDARD  AND  VT  -  52  TERMINAL  CONTROL  CODE  SEQUENCES 


Funct i on 

ANSI  Terminal 

VT  -  52  Termin 

Cursor  Up 

ESC  [  Pn  A 

ESC  A 

Cursor  Down 

ESC  [  Pn  B 

ESC  B 

Cursor  Right 

ESC  [  Pn  C 

ESC  C 

Cursor  Left 

ESC  [  Pn  D 

ESC  D 

Home  Cursor 

ESC  [  H 

ESC  H 

Position  Cursor 

ESC  [PI;  PC)  H 

ESC  PI  ,  P< 

Reverse  Video  On 

ESC  [  7  m 

- 

Reverse  Video  Off 

ESC  [  0  m 

- 

Bold  Face  On 

ESC  [  1  m 

- 

Bold  Face  Off 

ESC  [  0  m 

- 

Graphics  On 

ESC  (  0 

ESC  F 

Graphics  Off 

ESC  (  B 

ESC  G 

Clear  Screen 

ESC  [  2  J 

- 

Clear  Line 

ESC  [  2  K 

- 

Clear  To  End  of  Line 

ESC  [  K 

ESC  K 

APPENDIX  E 


MODIFICATIONS  TO  THE  ADAMEASCRE  USER  INTERFACE 

Tin’  package  TERM  IO  was  applied  to  the  AdaMeasure  program  to  illustrate 
the  use  of  the  package  and  the  benefits  of  the  package  in  the  areas  of  readibility 
and  ea-e  of  use.  The  modified  section  of  the  AdaMeasure  package 
MEN!  DISPLAY  is  presented,  followed  by  the  original  package.  It  should  be 
apparent  that  using  the  TERM  IO  package  made  the  job  of  coding  the  user 
iiperfac*  faster  and  easier. 

Modified  Package  MENU  DISPLAY 

The  TERM  IO  package  was  used  to  modify  the  MENU  DISPLAY  package. 
The  MAKE  MENT  procedure  presented  in  Appendix  B  was  used  to  modify  the 
procedure  MEN!  ,  illustrating  how  a  standard  menu  procedure  can  be  employed. 
Tin  procedure  INITIAL  MENU  was  modified  using  the  TERM  10  functions 
direedy  for  a  custom  design'  interface. 

w  i  <  ,h\F.R  Al.  DATA  H.AI.STT.AD  DMM.AA  INITIAL  DISTI.  A\  DISIT. AA  SU'PoKT 
i,l  i  iH  VI.  I’AKSKH  Cl.itHM.  IT.  XT  IO  ITT!  M  IO 
,-olMHM  DMA  IIAlTTKAD  DISPL  A  A  INITIAL  DISPl. AA  DISl’L.AA  "IIT’OIIT 
ol  <  DAI  I’  A  KM  K  DOHA!  IT.  XT  K  *  HUM  IO 

i  .  Ml  M  DMT  A  A  is 
i  f  •  •  i r*  Ml  M 
r  •  ;  ,r-  !  X !  I  !  A !  MIX! 
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.•mi  MEM  DISPLAY. 


[  ackage  bi»i\  MEM  DISPLAY  is 

--  'Ins  procedure  Ti-play-  the  metric  selection  menu  from  which  the  user 
--  can  make  th-  appropriate  selection 
pr  "  e.iur-'  M  hi  M  n- 

i  eglll 

MAKE  MEM  ("METRIC  SELECTION  MEM  ". 

"  HALSTEAD  METRIC”. 

"COMMENT  AND  NESTING  METRIC”. 

"  HENR'i  AND  KAFIR  A  METRIC”. 

"EXIT  TO  MAIN  MEN l 
"EXIT  TO  SY  STEM”. 

\  N  '  j 


a-e  \  N  -  ,s 

w  hen  V 

w  hen  H 

w  hen  < 

« hen  I ) 
W  tl  *’  t.  I 
eti  I  «  a 
I...C 
•tl  :  MI  NI 


H  \1.STE  \D 
MEW  GENERA I 
MEW  HI  NR  A 
I"  1 N I  I  RLE 

rui-e  til  II  I  (  > 


'•ii-  pr  •  -e.j i, p.  ii-j  ,a\ -  1  he  it.an,  -e|.-  i ,  ,  hi<thj  which  allows  the  uxer 
'  ■  •  In  ■  -e  ■  .  parse  a  hi*  v  lew  prev  i  i- 1>  vat  here.l  .)at  a  or  put  i 
'  tie  pent  mv  - .  -t  ■•in 

••  lure  INI  IT  VI  MI  NI 


|\  I'Rt  'I'li  I  L  >N 
Cl  I  \  H  -1  HIT  N 
M"H  t  I  (W  »R  ||(  'Ml 
DRAW  H"X'f  I 

-  I  I  Cl  RSt  >R  I’ns.  7  • 

~l  I  lb  'I  HluN 

;  '  M  a  i  r  v ,e-  t \|.o  u  "  | 

- 1  I  lii'l  I'li'IE 

-  I  I  <  I  i:  -i  iR  f  'i  i-1  |  j  '■ 

;  "  'I 

,  i '  l  i  -  .  '  ;  n  ti  <  "  i 

*  11  *  i  I  - 1  ■  I  l’i  m  i  ;•  i  : 

V  •  w  I  i  .  o  ,  I  ,  I  I  v  . ' 

-I  i  '  I  f'~'  '!•:  I'<  i:  1  . 


—  ^  I-  *  ■  ■ — *  r.  M  *  i  — *■ ■  -A  -  Hi  1 1  J*  Jl,  uti Li  «r. '  dju  rfVn.  jmTiii  1 


put ("3  ”). 

piit("Exu  to  operating  S\siem"l 
SET  (TRSOR  POS(e  22) 
put  i ''Enter  number  of  choice  '  I 
w  hile  true  loop 

A  NS  CET  KEN 
case  A  NS  is 

w  h  e  n  1  2  3  e  \  1 1 . 

when  other-  SET  (’I  RS()R  P( )S| 3-' .22 1 

<  LE  \R  t  i  RSttR  TO  E()L 

enii  case, 
end  loop 

case  A  NS  i- 

when  1  RESET  E\R  AMI  I  I  R' 

i  N 11  1 A I  «  KEEN 
MINI 

when  MENI 

when  3  raise  I  [  [  I  <  >  <  »- 

e-id 

nilNITIM  MINI 
■  I  MENI  HN'|  \  N 


Original  Package  MENI'  DISPLAY 


In  *!;>  original  package  menu  display  the  ditfir uities  that  the  pros 


rammers 


:.a<i  with  tin  -(Teen  output  are  apparent.  The  programmers  were  required  to 
specify  tj.e  character  for  each  screen  loaration  This  leads  to  the  olumbsy  repeated 
put  and  new  ',mr  calls  Even  the  -pact's  lx  tween  the  lint's  have  to  be  printed  in 
>rder  to  print  the  border  Tlie  aster.sk  symbol  was  used  to  put  the  border  around 
‘he  menu  selections  The  code  is  difficult  to  write  and  even  harder  to  read. 


■>  "1,1  NI.RM  I  >  \  I  \  ll\|s||  \  |  ■  hl'l'l  \N  INI  M  \|  |>|s 

■  I  '  ' M  \  1  P  \R-T  K  <  ,1  'll  \|  I  1  \  I  P  ■ 

'  ■  I  Ml:  '  I  I  '  \  I  \  H  \  I  -  !  I  M  >  I  Rspl  |N|  I  I  M  I  i|s| 

1  1  •  >  I  ■  \  I  f  \lt'i  It  '.i  'll  \  I  I  \  I  1" 


PI  \N  I  d'Pl  \  >  -I  PP<  'R  1 


’1  \N  Hl'l'l  \  N  s  |  PP,  I 


,  MIN  Id'll  \  1 


end  \1EM'  DISPLAY 


package  body  MEM  DISPLAY  is 


--  this  procedure  displays  the  metr.r  selection  menu  from  which  the  user 
--  can  make  the  appropriate  selection 
procedure  MEM'  is 
DONE  boolean  :  FALSE; 

begin 

w  hile  not  DONE  loop 
CL EARSCREEN. 

new  line; 

I'Utl'"" . . . . . * . . . 

put  ( '  ■”"»"*  *  «•“  ■  *** * **“**"  j :  new  line; 
put  (  "  *  "); 

putl"  *'' );  new  line; 

put  I " '  METRIC  SELECTION  MENU  "); 

put  C  new  line: 


put|’’  " '' );  new  line: 

put (  HERE  ARE  THE  INFORMATION  CHOICES  AVAILABLE' 

puil”  TO  NOE  *•’);  new  I  ne: 

put  t ''  *  '•); 

put  | ''  *’’) ;  new  line: 

putl'  Simply  enter  the  number  of  your  choice"). 

put  l”  new  line; 

puli'" 

put  l"  new  hne; 

putl'"  1  -  HALSTEAD  METRIC  INFORMATION  "); 

put  I”  "' ) .  new  hne. 

putl'"  "); 

put  |"  new  hne. 

puil'"  •  COMMENT  ANT)  NESTING  METRIC  INFORMATION" 

pu'i'  * " ) .  new  line: 

putl'"  "). 

put  I  .  new  line: 

l  i'!'"  -  HKNin  and  KAKI'RA'  METRIC  INFORMATION  "): 

I  ut  i  ’  new  line. 

!  "  '"  "P 

pi'  "'  t .  new  lm» 

;  i'C"  l  .  EXIT  ft  MMN  MIM  "): 

l  !’•’  new  line 

t  *'  "I. 

t  I '  1  In  W  line 

If''  >  -  I A I  I  I'm  »|'ER  \  I  INC  -A  STEM  "). 


'  '  i  to  w  I ,  n< 


put("* ************’** ’*”***"):  nc«  line(2 ) : 
put("Choice  =  "): 
get  ( A  NSWER): 

get  line(DL'MMV  P 1 L K  NAME.  1.F.NCTH  OF  LINE):—  Hush  system  input  buffer 
new  line  ( 2 ) : 
rase  A  NSW  ER  is 
when  1'  •  HALSTEAD: 

when  -2’  -  VIEW  GENERAL: 
when  3  VIEW  HENRY: 
when  T  .  DONE  :  TRI  E: 
when  W  -  ■  raise  Ql  IT  TO  OS: 
w  hen  others  null: 
end  case 
end  loop: 
end  MENT: 


--  this  procedure  displays  the  main  selection  menu  which  allows  the  user 

—  to  choose  to  parse  a  hie.  view  previously  gathered  data,  or  quit  to 

—  t he  oporat me  sy  stern 
procedure  INI  I  I  \l  MEN!  is 

DONE  boolean  FALSE 
begin 

INTRODUCTION 


•  h i le  not  DONE 

loop 

CLEARSOREEN 

new  line. 
put(  ’ 

put ( '  ***** 

'):  new  line. 

P'l't"* 

"): 

put  r 

*" ):  new  line; 

put ("* 

MAIN  SELECTION  MENT  "): 

put(" 

*”):  new  line: 

put  ("* 

put  ( " 

*"):  new  line: 

put  ("* 

HERE  ARE  THE  ACTION  CHOICES  AVAILABLE  TO 

put("YO! 

*"):  new  line: 

put)'" 

put|" 

*''):  new  line; 

pllt("* 

Simply  enter  the  number  of  your  choice''); 

putC 

*''):  new  line. 

pm  r* 

")■ 

put(” 

“"):  new  line; 

F>ut  ('" 

1  -  PARSE  AN  ININ  T  FILE  "): 

p'i'  (" 

new  line. 

put  ("  ‘ 

put(" 

*''):  new  line. 

put  (  "  ' 

2  -  VIEW  PREVIOCS1A  GATHERED  DATA  "): 

pul  (" 

’").  new  line. 

put  ("• 

"I 

('till" 

'").  riew  line 

G8 


ii 


put("'  3  -  EXIT  TO  OPERATING  SYSTEM  "); 

put("  *");  new  line. 

put("*  "): 

put ( '*  *");  new  line. 

p«tC '”****””*******”«*»*■ 

pul('"*************" . *'•).  new  1 1 ne ( 2 ) ; 

put  ( ''( 'hoice  "); 
get  (ANSWER): 

get  line(l)l  MM'i  F  ILE  NAME.  LEND  TH  OF  LINE);—  flush  system  input  buffer 
new  line(2 ) ; 
rase  ANSWER  is 

when  1  RESET  PARAMETERS 

INITIAL  SCREEN 
MEN  l'. 

when  2'  MEN! 

when  3'  raise  Ql  IT  TO  OS. 

when  others  •  null: 
end  rase; 
end  loop; 

»nd  INITIAL  MEN! 
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